Bellos lugares turisticos para ir de vacaciones, rodeado de naturaleza.
Podras disfrutar de las bellas vistas que ofrecen cada uno de los lugares
Trendra la mejor experiencia de su vida
También puedes poner imágenes:
Referencia uno: google maps
Referencia dos:
Referencia tres
---
title: "MAPA TURISTICO"
author: "ALMA GARCIA"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
favicon: escudo.jpg
logo: escudo.jpg
fig_mobile: TRUE
theme: cosmo
social: menu
source_code: embed
navbar:
- {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
- {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---
```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```
Mapa {data-icon="fa-map"}
=====================================
Row
-----------------------------------------------------------------------
### Título del mapa
RUTA TURISTICA
```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "MIchoacan", Giro = "Mariposas", longitud = -100.3016, latitud = 19.5795)
lugar2 <- c(Nombre = "Yucantan", Giro = "Museo Maya", longitud = -89.6253, latitud = 21.0351)
lugar3 <- c(Nombre = "Puerto Vallarta", Giro = "Playa", longitud = -105.2279, latitud = 20.6627)
lugar4 <- c(Nombre = "Monterrey", Giro = "Museo de Arte", longitud = -100.3092, latitud = 25.6728)
lugar5 <- c(Nombre = "Puerto Escondido", Giro = "Costa Oaxaqueña", longitud = -97.0813, latitud = 15.8627)
lugar6 <- c(Nombre = "Chihuahua", Giro = "Parque Nacional Cascada de Basaseachi", longitud = -108.3474, latitud = 27.9491)
### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))
### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro))
### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))
### Imprimimos el mapa
mapa
```
Row
-----------------------------------------------------------------------
### Descripción del mapa
Bellos lugares turisticos para ir de vacaciones, rodeado de naturaleza.
*Podras disfrutar de las bellas vistas que ofrecen cada uno de los lugares *
**Trendra la mejor experiencia de su vida**
También puedes poner imágenes:
{heigth="100"}
[O hipervínculos, por ejemplo a Google maps](https://www.google.com.mx/maps/)
Row
-----------------------------------------------------------------------
### Referencias
1. Referencia uno: google maps
2. Referencia dos:
3. Referencia tres